#! /usr/bin/env perl
use strict;
use warnings;
use Encode;

my @lines;
while(<>) {
		push(@lines, $_);
};

foreach(reverse(@lines)) {
		print
}
